home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_B.d64 / rollin' dices (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  264b  |  14 lines
  1. 0 x=int(6*rnd(1))+1
  2. 1 y=int(6*rnd(1))+1
  3. 2 print"[147]abenteuerspielbuecher":print"ein oder zwei wuerfel?"
  4. 3 geta$:ifa$=""then3
  5. 4 ifa$="1"then10
  6. 5 ifa$="2"then20
  7. 6 goto3
  8. 10 print"wuerfel nr. 1 ="x:goto40
  9. 20 print"wuerfel nr. 1 ="x
  10. 30 print"wuerfel nr. 2 ="y:goto40
  11. 31 run
  12. 40 geta$:ifa$=""then40
  13. 41 run
  14.